home *** CD-ROM | disk | FTP | other *** search
/ CSi Master: Ableton Live 5 / CSi Master: Ableton Live 5.iso / pc / rsrc / locrsrc / mtprsrc.dir / Internal_18_writeTextFile.ls < prev    next >
Encoding:
Text File  |  2005-10-31  |  453 b   |  17 lines
  1. on writeTextFile pFilePath, pText, pFileType, pFileCreator
  2.   vWriter = 0
  3.   vWriter = new(xtra("fileio"))
  4.   openFile(vWriter, pFilePath, 2)
  5.   if status(vWriter) = 0 then
  6.     delete(vWriter)
  7.   end if
  8.   createFile(vWriter, pFilePath)
  9.   openFile(vWriter, pFilePath, 2)
  10.   if (the machineType <> 256) and (pFileType >= 0) then
  11.     setFinderInfo(vWriter, pFileType && pFileCreator)
  12.   end if
  13.   writeString(vWriter, pText)
  14.   closeFile(vWriter)
  15.   vWriter = 0
  16. end
  17.